home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / News Stacks / Feb '90AMUG News™.cpt / Feb '90AMUG News™ / card_26986.txt < prev    next >
Text File  |  1990-03-11  |  2KB  |  76 lines
  1. -- card: 26986 from stack: in
  2. -- bmap block id: 27170
  3. -- flags: 0000
  4. -- background id: 2135
  5. -- name: Diamond
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=11 top=60 right=321 bottom=261
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 2
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: 
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=262 top=60 right=334 bottom=508
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 2
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: 
  34.  
  35.  
  36. -- part contents for background part 1
  37. ----- text -----
  38. 26
  39.  
  40. -- part contents for card part 2
  41. ----- text -----
  42. inGoAway: 
  43. wObj.GoAway;
  44. end; { of windowCode. }
  45. end; { of otherwise. }
  46. end; { of case windowCode. }
  47. end;
  48.    And now for the bonus.
  49. The TError class came as a result of the need to provide a standard way to report to the user that an error had occurred.  No matter how well a program is written, there is always a chance that something unexpected and beyond program control will happen.  The TError class of objects are able to check to see if errors during the allocation of handles and pointers occurred.  It is also used to 
  50. report a specific
  51.  error condition. 
  52. If there was an
  53.  
  54.  
  55. -- part contents for card part 1
  56. ----- text -----
  57. wObj := TWindow(GetWRefCon(theWindow));
  58. case windowCode of
  59. inZoomIn, inZoomOut: 
  60. if TrackBox(theWindow, eRecord.where, windowCode) then
  61.       wObj.Zoom; 
  62. inGrow:
  63. wObj.Grow;
  64.  
  65. inDrag: 
  66. wObj.Drag;
  67.  
  68. inContent:
  69. if (th Window <> FrontWindow) then
  70. wObj.Select
  71. else
  72. begin
  73. GlobalToLocal(eRecord.where);
  74. wObj.DoInContent(eRecord);
  75. end;
  76.